fix windows build

diff --git a/Utility/OsPath.hs b/Utility/OsPath.hs
index 9fa4e0f57e57088a9e509112089eec13ec34005f..59302cd53e6d41c71cab307bbd7d8f48324a049d 100644 (file)
--- a/Utility/OsPath.hs
+++ b/Utility/OsPath.hs
@@ -43,7 +43,7 @@ fromOsPath :: OsPath -> RawFilePath
 -- On Windows, OsString contains a ShortByteString that is
 -- utf-16 encoded. So have to convert the input from that.
 -- This is relatively expensive.
-fromOsPath = toRawFilePath . cWcharsToChars_UCS2 . BS16.unpack . getWindowsString
+fromOsPath = toRawFilePath . cWcharsToChars_UCS2 . BS16.unpack . getWindowsString . getOsString
 #else
 fromOsPath = S.fromShort . getPosixString . getOsString
 #endif